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- XXDP TR79F MONITOR M-11-DMQUF-B MACY11 27(732) OI-MAR-77 10:34 PAGE 1-2 
Pll EQUATES SEG 0003 

) 1 ALTe =175 

ie ALT3 2176 

) 

-SBTTL GLOBAL REFERENCE DEFINITIONS 

: ;EXTERNAL GLOBAL DEFINITIONS 

) GLOBL TMTO 

; GLOBL GREWND , CROHDR 

) 

) -ASECT 

) 164002 MTST =16400e 

) TCM 

) MTWC =164004 

) 16400€ MTBA =164006 


-_-_ ~ a+ eee -— 2 ee a a rr | pang 





TROP = XXDP TR7GF MONITOR N-11-DMQUF-B8 MACYLI 27(732) O1-NAR-77 10:34 PAGE 1-3 | 
| DMQUFB.P11 ONCE ONLY BOOT LOADER SEG 0004 
(2) .SBTTL ONCE ONLY BOOT LOADER 
| Pa 

5) MOV #36000, RO ; RELOCATION S 

(3) CLR ‘INTTIALIZE TO OLD ADDRESS 

(8) tft :SET COUNT ERS 

(3) 1S: )+) (RO)+ ‘MOVE BYTE TO UPER CORE 

(2) DEC : COUNT 

(8) BNE PG ‘LOOP BACK IF NOT 

(s) 16 3836070 : JUMP TO BOOT LOAD SUB ROUTIN 

(8) “WORD 0,0,0,0,0,0,0,0,0,0,0,0 

(2) 

(2) 

(2) 

(2) 

(5) 

(2) 000070 .=70 

(2) 000070 000240 INIT: NOP ;RESET PERIPHERALS 

(2) 000072 012706 o40000 MOV ‘INITIALIZE STACK POINTER 

(2) ;CHECK IF MTU READY SOV BHO A AT LOAD POINT 

(2) 000076 004767 900160 JSR PC, READY TEST FOR DONE 

(2) 000102 164002 an BIT ah #40 SenTsT ieee Gael sTEST A phono POINT INDICATOR 

(5) 00011G 001007 ‘ BURST, ;BRANCH IF @ LOAD POINT 

(2) OO0l1l2 005037 164002 RWND: CLR aanTST ‘CLEAR STATUS REG. 

(3) 000116 012737 000021 164000 MOV 821, J8MTCM -REWI 

(2) 000124 004767 000132 JSR PC Y ;WAIT FOR DONE 

(2) 000130 005037 164002 BURST: CLR ashTST CLEAR STATUS REG. 

(2) 000134 012737 OO000S 164000 MOV 8S, JUMTCM READ COMMAND 

(5) B00 ae 278 Spades 164002 art PCA READY amt NDICATOR SET ?? 

) : ;10 BURST purst f is TEs rest POR IF NOT PRESENT APB BE nine NG OF TAPE 

‘g) Oi ee a? | "eee ‘ome ig AR STATUS REG. 

De: 2 oe Ea 

) 000174 CLR RY’ 2 INITIAL LOAD ADDRESS TO 0 

(2) 000176 O10437 164006 REED: MOV R4, J8MTBA oINETIAL LOOP ADDRESS DURING DMA 

(2) pod202 012737 177000 164004 MOV 8-512. , a8MTWC :SET_pLotK. SIZE TO READ 256. (DECIMAL) 

(2) 000210 00S037 164002 CLR aaMTST 

(2) 000214 012737 OO000S 164000 MOV 85, JUMTCM 

(2) 000222 004767 000034 ISR PC’ READY 

(2) 000226 000010 164002 BIT #10, JeMTST ;CHECK IF END OF FILE MARK HAS BEEN READ 

(2) 000234 001402 BEQ 

(¢) 000236 000137 001000 IMP 381000 ; JUMP TO THE BEGIN OF TROP PROG. 

(2) ;CHARACTERS HAVE BEEN TRANSFERRED FROM TAPE TO CORE, BEGIN TO 

(2) “PACK THE CHARACTERS INTO WORDS. 

(2) o00e42 012703 177000 3S: MOV #-512. ,R3 ; COUNTER 
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LOADER SEG O00S 
MOV R4Y.RS :R4 USED TO POIN NT TO WORD ADDRESSES 
PACK: nove (RS)+, (RH) RS USED TO POINT TO BYTE ADDRESSES 
INC 2 OF WORDS 
BNE PACK HP Nor, Ke KEEP PACKING 
BR REED ‘TF YES. GO BACK AND GET ANOTHER 
‘BLOCK FROM T 
000262 105737 164000 READY: TSTB asMTCM ;CHECK IF TAPE CONTROLLER READY 
ondeb6 BPL READY ;WAIT UNTIL READY 
164000 5 aenTcm “CHECK IF ERROR BIT SET 
000276 ee m9 011000 164002 art 11000 aeMTST TF Me, HNN CHECK IF EITHER A 
: : COUNT OF SINGLE TRACK ERROR 
"HAS OCCURRED. 
000304 001001 BNE RTN 
000306 000000 TAPERR: HALT ;HALT BECAUSE OF TAPE ERROR 
090310 000207 RTN: — RTS PC IF YES, IGNORE AND RETURN 
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SIDER. RON TTOR RELOCATOR, AND OTHER GOODIES. 0006 


or. SIZER, MONITOR RELOCATOR, AND OTHER GOODIES. 


dg 
25 


) 
(1) 001900 tovenr ta 
«Sma sS1ZE om, UPDATE ‘the wong! - PETE TRAP 10" 38 - 
904 pisren Selrg terre s=000, Ro DETERMINE TOP OF CORE IN 1K CHUNKS. 
(1) 001012 012700 1 HOV 
(1) 001016 905001 - RO 
: song NCE UNKNOWN LOC. 
(1) BIRD beset ADS 0, (03 pee snow tain. 
Ble fee, i sm 
) 3 86 (SO RROR TRAP. 
(1) O01 , 4 ;RESTORE E 
(1) BO1OM Biever Bdoioe zeae 2s: Ry ea ;RESTORE ERROR, 
(1) 001052 Ge01e7 000010 oe BR IF. YES, sb } 
(1) OO1055 002010 JSR RS, MES ; INSUFFICIENT CORE ME 
BS Bare, moe ie 
(1) 901066 900060 WaT sLOCK IN HALT. 
(D 001070 000777 3s: al #25, (6) ‘TRAPPED TO HERE. EXIT TO 2S 
(1) go107e 12716 o0104 > My owees 
(1) O01 oi ae ;READY TO TYPE C 
(1) polos Iiele? oie 900301 RODE 1) AKL 
' 
a) BB1i5 126760 ies obuer CUB”. LIMIT#2,R0" ;SET UP NEW LOAD ADDRESS 
(1) OO1116 166 ile ae nt : scape? 
(1) ot 130 Te Be Boeese pons ast ITTB Re ‘END OF TABLE? 
Gee71e 177777 518: mK, sn OF ee 
(1) BLING oolage POD ORI, a¢R2D+ :CORRECT FOR RELOCATION. 
Ee Bee Re ORy © TOP OF CORE. MERE PROGRAM STARTS. 
1146 005001 8 te 
BH BI om ie INTs? ancgore on ete at 8 re 
c 
{CONTINUE RELOCATION. 
1) OBLles Oor37s ene Re, MES STYPE TITLE AND CORE SIZE. 
(1) OO1i62 004567 00642 JSR RS, . 
(1) 001198 OO4S67 o006H2" JSR RS, MES hector apt cag 
: T 
DL TE ae Reon a 
(1) Qo1208 ooa7e7 Doles" Jon ORS'HES ;TYPE FOR HELP MESSAGE. 
(1) 001206 7 o00b42 JSR, RS, ener 
(1) boi 3i4 Bouse? 000642’ JSR «RS, MES ; TYPE THE HELP ME 
HNINST 
Le WAIT A BIT. 
1} ob eee Oo7es ponege MOV. SCONES. PC {GOTO RESIDENT MONITOR. 
(1) OC 
(1) 001232 000000 o00000 Lott: «Leer | 
(1) 901236 o30040 031040 KCODE: ‘ASCII '0123456783 
(1) Bolsas O3iw40 3e04 32440 
(1) 001252 033040 033440 03404 





HO1 
Q1-MAR-77 10:34 PAGE 1-6 


IES. 


27(732) 
THER 


hd M-11-DMQUF-B MACYI1 
» MONITOR RELOCATOR, AND 0 





x 
“_ 
YO 
- 
— 
“o 
x 
Ee 
oO 
ivy) 
a. 
> 
e 
3 
az 
w 
w 
Fa 
a 
Jt 
ta 
a 
ao 
z 
fee 
= 
So 
— 
aa 
oO 
ie 
oa 
He 
e 
5 
g 
oO 
Ke 
x 


“%TRDP - XXDP TR79F MONITOR M-11-DMQUF-B 1-MAR-77" 
*%D/F<CR> FOR SHORT DIRECTORY ON CONSOLE, OR’ 


: 
ai3 = sauna cs oe ua Basee ads aca ese 
ete Site ee ; Saes arta gee See 
ERIE ag POG aud Wearecaeae 


DULG a et AU RIS Sees Sr ae aSictc Peni hata IIe eke ACN BSI 


SLA at AC RS Sp pee ea gee asic ic frih nie aA Ma eke Ra SBS 


en bepmd bod 


re 
So 
= « 
s tay 
ae 
t=) oS 
oOo w 
z= 
a Oo 
=) oO 
‘ rh z 
z uy . 
ae . a & 
@ ly w Oo 
_ - e r = 
~ @ oS oS oO 
— cu - oO Oo ty) 
= ny ee te - = 
— 
wm vs) a & tw Qa 
Y in e¢ a a 
— ry) oO Oo Oo 
ba] me & = A aA 
ot raY) ~~ - x a 
-_ Lav) xu w w © oO 
as 8 ws ‘ < : 
Ss sé e & ec & g 
oo ~* oe x o nS 
x 
~ “ Land NN N N ~~ a bot 
me ot tot eee - cond — coal m4 
2 #8 Be 2 22 2 2 
—) 
3S 


BYoees 
a FHELP: 


é 
; 


1516 


OS4S24 042520 MNINST: 


S888888888Ssssssssssssssssssssssssssssssssssssssssssssss 


QQ. LLL LOLOL LO LL LO I EG I my L,I, GN i, Gn, i, Gn, Gy GN, i, Gn, in, Gn, in, GN GN, GN, iN, IN, GN, I, N,N, GN, I, I, GN, GN, GN, GN, a 
Cee ieee ee hee ee hee eee ee ee hee hee bee hee hee ee ee hae eee hae hee han han hem oe hem hen han han ham hom ham bam ham loom ham Lean hem em lean em ham ham hem have nem nee here bam ham haw ham hem hae heme hee) 
et et et et et St et et Ret ht Nt Rt Bt Bet Set St Nt St Set Sat Set St Set Bat Nt Ne St Set Set Set St Se Set See St Cet Set See Se Set Set Set Set See See Set Set eet et ee 





I01 


O1-MAR-77 10:34 PAGE 1-7 





-B MACY11 27(732) 
OCATOR, AND OTHER GCODIES. 


w 
w 
a 
Q 
« 
oO 
| aml 
i. 
Lom} 
oO 
rr} 
a. 
w 
= 
=< 
= 
= 
ra 
o 
oS 
x 
a. 
& 
& 
e 
w 
° 
— 
a 
& 
Oo 
w 
x 
8 
w 
x 


*“%D/L/F<CR> FOR SHORT DIRECTORY ON LINE PRINTER,’ 


’“%R FILENAME<CR> TO RUN ANY OTHER PROGRAM. ’ 


*%D/L<CR> FOR DIRECTORY ON LINE PRINTER, OR’ 
*%S<CR> TO START THE PROGRAM JUST LOADED, ’ 


*%R COPY<CR> TO RUN COPY PROGRAM, ’ 
"%L FILENAME<CR> TO LOAD A PROGRAM ONLY’ 


"40 FILENAME<CR> TO RUN A CHAIN, * 


ASCII 
ASCII 
ASCII 
-ASCIT 
ASCII 
ASCII 
ASCIT 
ASCII 


atase Rees gacees WOOes aebkle euustale Ws 
Gilets Gas — d SIScLavaISCa) el uadees canal — 
ee csadstasked Gcitel Bleed latlela cs 


ssessnsibes uae SESE SSesneseaes 
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SIZER, MONITOR RELOCATOR, AND OTHER GCODIES. 


Geol 044103 O44SO1 


DMQUFB.P11 


TROP - XXDP TR79F MONITOR N-11-DMQUF-B MACY1I 27(732) 


"%C FILENAME/QV<CR> TO RUN A CHAIN IN QUICK VERIFY MODE.’ 
"“REFER TO XXDP USER MANUAL MD-11-DZQXA FOR ADDITIONAL HELP.~’ 
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SBT NON-RESIDENT CODE 
TORY ROUTINE. 
a fe ts ;POP FF 1ST St STACK ELEMENT. 
(5P)+,FILLCT GET FILL COUNT. 
MOV (SP)+, CURDRV :GET THE CURRENT DRIVE NUMBER. 
, MOV (SP)+, SCOMC3 ‘GET RES MONITOR RESTART ADDR. 
, MOV (SP)+’KBPTR -GET KYBD POINTER. 
, CLR R2 "FOR DEVICE SET ROUTINE 
, JSR PC, SETI :SET INPUT. NO 
: ae SPE ABER Meme surron. 
’ Jen * BCLEAR ‘CLEAR NAME TO ?°S 
hoy e° XFLMOD(RS) NDICATE WILD M 
pober, BAGSbS ISR Re. » SORT ERS) NOT puT DIRECTORY. 
000062’ 000207 RTS PC’ ‘RETURN. 
000064’ 000 FSTMOD: : .BYTE 0 
000066’ EVEN 
000065’ 105267 177772 SETFST: INCB FSTMOD ;SET FAST MODE. 
000072’ 000400 BR NRGTSW 
000074’ 012701 000144’ NRGTSW: MOV #NRSWTB, Ri sPOINT TO NON-RESIDENT SWITCH TABLE. 
000100’ 000167 o00Sse’ IMP GTOKK :GO SET SWITCHES. 
, r : V AT 
BBOI Ie” Biese? ponnss pipe “POM? MOY EBB HOU ‘CHANGE, BUFFER REG: 
000120’ 052767 o00200 002410" BIS ath oUF or MAKE FILLCOUNT NEGATIVE. 
000126’ 016708 000014 MOV #14, Re ;OUTPUT FORM 
es eae he cere 
nee ’ 
000140" 177514 LPS: 177514 it NE PRINTER STA ai 
000142’ 177516 LPB: 177516 NE PRINTER BUFFER REG AD 
000144" NRSWTB: 
0144’ ’ ; TFST sDISPATCH ADDRESS FOR /F 
0a ify? eatnt “ORD PBar° ‘DISPATCH ADDRESS FOR /L 
Be Bele toe Sac Bleretey Sess FOR CB 
Bo0200" 177779 -1 ; TERMINATOR. 
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SUB TO TYPE FILE NAME 

JSR 
MOV 
CLR 

: MOVB 

: JSR 
INC 
CMP 
BLO 
BHI 
MOVB 
BR 
CMPB 
BLO 
JSR 
JMP 


STPNM1: : 
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NON-RESIDENT CODE 


Pll 


TROP - 
| DMOUFB. 
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7 et’ RT AND TYPE SUBROUTINE SEG 0012 
acocv., “‘SETTE BINARY TO DECIMAL CONVERT AND TYPE SUBROUTINE 
; ct RY, SAVOY 
(RS)+.RY 
CTAB, RO ite piguss 
-(§P) FOR INDI CHTOR. 
002 BCD1: : =(RO) ‘STEP TO THE LARGEST Diet 
00 BcD2 Fi Boo R2 IS TO RECEIVE THE QUOTIENT 
036 fRo)+,R1 Fee Biv VISOR 
* 9014 Bco iEXTT of az 
Ooasi6 1e0i63 BCDS ef 1 IVIDE BY BO BTRACTING 
oou3i4 Onssue INC Re |UP THE QUOTIENT AFTER EACH SUB 
; BCDY .GONE TOO FAR 
Bis: le @ Be Fe 
’ 
Boe DOSTTE ee ORS i NPADING ZERO’S? 
900330’ 001003 BNE - BCD6 tN 
posse’ preps ooo oy ae $YES PRINT SPACE 
000340" 005216 BCDB: INC (SP) ;NOMORE LEADING ZERO’S 
00342’ 062702 000060 ADD —s:«#° 0, R2 tMAKE IT ASCII 
po0346’ 004767 000776" pco7: Jak BC CHROUT {PRINT IT 
eet BCD3: ‘TST ache ;POP_INDICATOR WORD. 
000356’ 000167 002236’ IMP RES 'GO RESTORE REGS 0-4, DO RTS RS. 
000362’ 023420 001750 OD0144 WORD 10000.,1000.,100.,10.,1 
000370’ 000012 00000! 
900374’ o00000 


’ 
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DATE UNPACK AND TYPE SUBROUTINE 


Pll 


TROP - 
| DNQUFB. 


.SBTTL DATE UNPACK AND TYPE SUBROUTINE 


OF Conf Te ert 


;SAVE THEM 
AR 


a 


R4 
»R3 


aR Me™ 


;PRINT OUT THE DAY FIRST 
;POINT TO MONTH NAME 


;AND PRINT IT 


;FIND WHAT YEAR 


;SEE! 


o 
a 
uw 
e 
a 
9S 
a 
r 
4 

ao 
3 
g 
w 
te 
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iPRINT THAT OUT 


bee 
i 


000034 000037 DATTAB: . 


000036 000037 
000037 000036 


31.,30.,31.,31. 


-WORD 30.,31.,30.,31. 


. WORD 


2 
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DMOUFB.P11 CHAIN BUFFER 

(1) ya | CHAIN BUFFER 

(1) 000000’ .CSECT RUNBUF 

(1) 900000" O0040C RUNBUF: .BLKW 528. 

(1) | -SBTTL & UNPAK TR BUF 

(1) 000000" -CSECT TRBF 


SEG 0015 
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DMQUFB.P11 DECODER, INI, AND DELAY ROUTINES SEG 0016 
(1) ie rear’ ase COMMAND DECODER, INI, AND DELAY ROUTINES 
'B oxmonn coos eal iam 
AHNnNNNH * * 
i} SEE Suir A 
(1) jEND_OF PASS CHAIN MODE ENTRY POINT. ss ann ¥ ant 
C1) 7M00DS , pos ue 000060’ SRELIL: no SReTRTL, -(6) Pat RTI to RSTRT! 
(1) erent Mite : 30 RSTRT1: JSR PC, CROUT2 ‘CHECK FOR CTL C. 
(1) reeeet poses pppaNe ST aede i EBORT CURRENT PROGRAM? 
(1) 000070’ 001425 BEG COMCON *BR IF YES. 
(1) 000072’ 105767 000121 TSTB  QVMODE QUICK VERIFY MODE? 
. p00076 001022 BNE COCON iBR IE YES. DO NEXT CHAIN ENTRY. 
(1) 000102" eave PCOUNT: .WORD 0 PASS CONFER. i 
(1) O00104" 001417 BEQ COMCON BR IF YES. 
(1) 000106’ 000207 RTS PC NO. RETURN TO CURRENT PROGRAM. 
(1) “ERROR REPORTING ROUTINE 
(1) 000110" 004767 OD0065 SomcOl: JSR PC, DELAY ;WAIT A BIT. 
(2) Q00114° OO4467 001720 JSR RY; SAVO4 “SAVE REGS 0-4 
(1) QOOLSe" BAMEES opase6 ORE’ RESO TE OURO MESSAGE 
(1) 000126’ mee SeS 00437C TSTB = RUNTID WAS iF RUN COMMAND ? 
a) Bae Bee my tease iB Ho Cancale CORT ODE 
(1) 000136’ 000140’ SCOMC3: COMCO3 ; ? 7 
(1) “CHAIN MODE IS CLEARED HERE. 
(1) 000140" 005027 SOmcO3: CLR (PC)+ ;CLEAR CHAIN MODE. 
(1) 000142’ 000000 CHN: -WORD O ‘CHAIN MODE INDICATOR. 
(1) “WHERE EVERYTHING STARTS 
(1) 000144" 012706 ’ SOMCON: MOV ¢ SET UP THE STACK 
(1) 600150’ 004567 001740 JSR RS, BCLEAR :CLEAR BUFFERS, VARIABLES. 
(1) 000154’ 003400’ 001135 SREL1: CLRBEG,O,CLREND-CLRBEG 
(1) 000162’ 004567 O004S4 COMCO2: JSR RS, MES ;TYPE A DOT IST. 
(1) 000166’ 00453S’ ADOT 
(1) 000170’ O04S67 000630 JSR RS, INPUT GO FETCH A COMMAND 
(1) 000174° 004767 000346 COMCOS: JSR PC’ GTOK :CHECK COMMAND SYNTAX 
(1) 000200’ 000761 BR COMCON ‘TILL EVERYTHING IS DONE 
(1) 
(1) 00202’ oOSO4E DELAY:: CLR -(SP) ;DELAY A LITTLE BIT. 
(1) 000204" 005316 1$: DEC (SP) 
(1) 000206’ 100776 BMI 1$ 
(1) 000210’ 005726 TST (SP)+ ;RESTORE STACK. 
(1) 000212’ 000207 RTSPC; RTS PC DONE. RETURN. 
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SBTTL CHAIN SETUP ROUTINE 
DOIT: R (PC)+ 
BKCT: .BYTE O 
YTE 0 
#"CC, IFNAM+6 
MOVB  #’C, LFNAM+8. 
ISR pc, SETIN 
TSR PC; GTSW 
SREL6: : CDDB, INDOB, BTCEND-BTCDDB 
DOI: INCB ° BKCT’ 
002: MOV RS, -(SP) 
JSR RS; BMOVE 
SRELS: INDOB,BTCDOB, BTCEND-BTCODB 
JSR , SAVOY 
JSR PC, INITI 
JSR PC’ RSTOY 
MOVB tT R3 
CLRB CT 
DO3: 

ISR PC, READL 
SRELY SORBUF pue’ero. 
SREL13: MOV #RUNBUF +2, CHN 

MOV #510. , RNBK 

INCB BKC 

DEC R3 

BNE DO3 

MOV (SP)+,RS 
RCKSUM: CLR (PC)+ 
RCKSM: . 0 
SREL12: MOV #RUNBUF , R3 

MOV #256. ,R4 
1S ADD (R3) +; RCKSM 

DEC RY 

BNE 1$ 

RTS PC 


SEG 0017 


;AT FIRST or yny Pa — QVMODE . 
s CONTAINS C 


QUICK c vERIEY pears 

: NSION 

jSET T INPUT DEVICE. NAME NEEDED. 
COPY INPUT DOB TO BATCH DDB. 

; WANT FIRST BLOCK OF FILE. 
‘BATCH DDB TO INPUT DOB. 

; SAVE REGS 0-4 

INIT INPUT. 


RESTORE REGS 0-4 
; GET THE REQUIRED BLOCK NUMBER. 


yor LINKED FILE BLOCK. 
INPUT BUFFER TO BATCH BUFFER. 


;SET_CHAIN MODE WITH AOOR ¢ OF 1ST CHAR. 
:INCR ; OF ef g ECes Reape 


; ORE RS. 
;CHECKSUM THE BATCH BUFFER. 


;GET ADOR OF BATCH BUFFER. 
;WILL DO 256 WORDS. 
;CHECKSUM A WORD. 

;ALL ? 

;BR IF NOT. 

;YES. RETURN. 
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CHAIN EXECUTLON ROUTINE SEG 0018 


,SBTTL CHAIN EXECUTION ROUTINE 
: 1 CHAIN: RO RL ;AT TART ¢ OF KYBO BUFFER? 
B74 177744 HOV RCKSM, -(SP) SAVE. aac CHECKSUM 
a 100736 MP RCKSM, (SP)+ RAT CH gk 
001412 BEQ CHAINO :BR tf YES. 
16746 177500 MOV CHN, -(SP) NO. SAVE C 
see rer Res ae 
12667 Aroee8 MOV (eee anak eel “Ie 8 BhoK’ 
012667 177460 MOV (SP)+" CHN “RESTORE CHN. 
016703 177454 CHAINO: MOV CHN, R3 : NEXT 
016704 MOV RNBK, R4 : COUNT 
005304 CHAINI: DEC RY 
100003 BPL CHAIN BR IF POSITIVE 
004767 177554 ISR PC, DO1 NO. NEED NEW BUFFER. 
? BR CHAINO 
12302 CHAIN2: MOVB  (R3)+.R2 GET A BYTE 
001614 BEQ COMCO3 BACK TO COMCO3 
20227 o00nle2 CMPB sR. #2 ‘LINE FEED? 
1766 BEQ CHAINI ‘DISREGARD IT 
7? 177420 MOV , CHN ; SAV 
? 002612 MOV RY’ RNBK ‘THAT TOO 
? RTS PC ‘RETURN. 


tae 
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COMMAND DECODER 


SBTTL COMMAND DECODER 


Tt) hf ik 


’ 904767 000654 SETCNT: JSR = PC, ATOI ;GET THE COUNT. 

* 010267 003760 MOV Re’ ICOUNT ‘STORE IT. 

* 900402 BR GTSW 

* 105267 177451 SETQV: INCB  QVMODE :SET QV MODE. 

’ GTOK:GTSW: 

, 912701 42" MOV #COMTAB, R1 : DEVICE DECODING COMES HERE 

’ O16 74 GTOKK: MOV RELCNT, Re ‘GET RELOCATION FACTOR. 

» 060201 ADD R2,R ‘CORRECT R1 FOR RELOCATION. 

’ 016700 000340 GTOKX: MOV KBPTR, RO GET STRING F POINTER 

* 012104 GTOK1: MOV (1)+, RY ADOR. 

’ 012103 MOV (1)+/R3 GET POINTER TO NEXT, ENTRY. 

’ 122021 GTOK2: CMPB (ROY, (R1)+ ‘MATCH THE CHARACTER? 

Bisat cToK3: fea OfRDD. sLAST CHR IN ENTRY? 

, 1354 * (BNE TOK2 :NO, C HE OTHER CHR’S 

* 010067 000320 MOV RO, KBPTR : SAVE STRING POINTER. 

; GTOK4: R00 Re, RY :CORRECT FOR RELOCATION. 

* 900114 IMP (RY) ;DISPATCH WHERE NEEDED. 

’ 010301 GTOKY: MOV R3,R} :POINT TO_NEXT ENTRY. 

’ 060201 ADD Re’ R1 ‘CORRECT FOR RELOCATION. 

’ 022711 177777 CMP #-1, (1) FILLED? 

’ 001356 BNE GTOKX ‘BR IF YES. KEEP LOOKING. 

; DO4567 177260 cial INVCMD: : aie TF. ay RS, COMCO1 ;REPORT INVALID COMMAND/SW 
000636’ 051457 000127 
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177752 


.SBTTL MESSAGE ROUTINES 
MES:: 


ISR R4.SA ;SAVE REGS 0-4 
MOV (RS)+,RO MES FER 
ADD (PC)+°RO ‘CORRECT FOR RELOCATION 
RELCNT: : . WORD ;RELOCATION FACTOR 
MESO: MOVB  (RO)+,R2 :PICK UP ONE CHR 
BEQ GEXO4 ‘BR IF O. 
ISR PC. MES1 GO OUTPUT CHAR 
BR MESO GO FOR 
MES1: CMPB Re. #11 TAB C 
EQ. TAB ;BR IF vec TO DO A TAB. 
Re, 8’% 3%? 
BNE CHROUT ‘BR IF NOT 
CRLF:: MOV Re, -(SP) ;SAVE Re. 
MOV #5015. Re OUTPUT CR. 
JSR , CHROUT 
sQUTPUT LINE FEED. 
JSR PC, CHROUT 
MOVB FILLCT,Re GET READY FOR FILLER CHARS. 
1S: CLR aMOUT ‘FILLER IS 0. 
ISR PC, CROUT1 
DEC R2 ; DONE? 
BGT 1§ ‘BR IF NOT. 
CLR (PC)+ ‘CLEAR THE CHAR COUNT. 
CHRCNT: .WORD 0 i CHAR COUNT VARIABLE. 
CRLF1: MOV (SP)+,Re ‘RESTORE Re. 
RTS PC DONE. RETURN. 
TAB SUBROUTINE. 
taB:: MOV Re, -(SP) ; SAVE 
1S: MOV #40, Re Mead: 00 THE TABBING. 
JSR ¢AROUT SPACE. 
BICB A CHRCNT : SEE F DORE. 
BNE 1$ :BR ar TFN NOT DONE. 
BR CRLF 1 
-SUB TO OUTPUT CHARACTER TO CONSOLE OR a PRINTER 
GHROUT: : MOVE Re, a(PC)+ OUTPUT CHAR. 
MOUT: . 177566 
CROUT1: 
TSTB =: APC) + ;WAIT FOR READY. 
MREG: .WORD 177564 
BPL CROUT1 ;BACK IF NOT READY. 
INCB  CHRCNT ‘UP CHARACTER COUNT. 
CROUT2: JSR PC, CKYBD s CHECK KEYBOARD. 
RTS .NO CHAR. 
BR GETCR1 CHECK FOR CTRL C. 
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ROUTINE 


GETCRI: 





02 


.SBTTL INPUT ROUTINE 
;T0 oe ee. DOA JSR 
FOLL Y + 


MOV SKBUF , 
MOV RO RI 
ISR PC, GETCHR 
CMPBséR2, #141 
Byes CRS, 8172 
ah Re 

#40, Re 
CMPB OS séR2, #177 
BEQ GEtIO2 

Re, (RO)+ 
CMPB Re, #15 

BE AES 


. WORD 
JSR PC, CRLF 


JMP RESRS 
TSTB a(PC)+ 
WORD 77560 
BPL 


YBOD1 
HOV 3(PC)+,R2 
BIC #177600, Re 

(SP) 


Q § 
JSR PC, CHAIN 
BR GETCRI 
JSR PC, CKYBD 
BR 1$ 

CMPB sé, # 
BNE CKY 


BD1 
S$COMC3, PC 
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RS, INPUT 


ADR OF MESSAGE TO BE TYPED PRIOR TO INPUT 


iSNPUT BUFFER 
‘OVE THE’ ADDRESS 


;GET_A_CHARACTER 

LESS THAN LOWER CASE A? 
;BR IF YES. 

SHI R THAN LOWER CASE 2? 


MAKE IT UPPER CASE. 
; RUBOUT? 


: YES 
; STORE one” tin SPECIAL CHAR. 


SUITING Te creR 


: CONTINUE INPUT 

BOUL BEF ER EMPTY? 

iter’ Fee LAST CHR 

: AND ECHO IT 

:STORE LF TOO. 

POINT a START OF KEYBOARD BUFFER. 
;KEYEC BOARD POINTER. 


;GO RESTORE REGS 0-4, DO RTS RS. 
;KEYBOARD ACTIVE? 

;BR IF NOT... 

;GET CHARACTER. 

;CLEAR_OUT JUNK 

it 


BITS. 
- CHARACTER IN BUFFER RETURN. 


;IN paint MODE? 
YES. GET CHAR FROM CHAIN FILE. 


;WAIT FOR CHARACTER. 
i LOOP oe YOU GOT ONE. 


;BR_IF_NOT. 
YES. TIME TO QUIT. 
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(1) 
T} 001216* OO4S67 176666 

(1) OOleee’ 042504 O42Se6 OSil2e 
(1) 001230" 000 

(1) 001232" 
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DEVERR:: et FRROR lat hss) ea sREPORT DEVICE ERROR. 
.ASCIZ ’DEVERR’ 


. EVEN 


SEG 0022 
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b= 
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001232’ 004467 000602 
mies ete 
DO1 9 

D0 1244" l 

001246’ 062702 000060 
pO eee 7? 177520 
001 ’ 

001260’ 003410 

pplese 

B01 See 


001302’ 000167 000514 
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BINARY 1-8 


‘Fakes WHAT’ 
“THEN CALLS PRINTOUT ROUTINE TO our a 
ITOA:: RY, SAVOY 


ITOAL: 


ITOAR3: 


ITORe: 
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rat RI HIFTS THREE BITS INTO Re 
THEM 


T SCREWED WHEN I DON’T 
oot rs brats: GO 


: MAKE I ASCII 
; TYPE 

“IF NOMORE TO GO 
GET RID OF OLD STUFF 
‘ ze 


KEEP GOING’ 


;GO RESTORE REGS 0-4, DO RTS PC. 


SEG 0023 
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2 ere oe ee | ee ee + re + ree 
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GETNUM/ATOI SUBROUTINES 
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.SBTTL GETNUM/ATOI SUBROUTINES 


GETNUM: MOV KBPTR, RO 
GTNM1: CLR R1 
CLR (PC)+ 
YES: i 0 
2s: MOVB  (RO)+,Re 
CMPB. sé, #4 
BEQ GTNM1 
CMPBs«#1S,,R2 
BEQ 3$ 
CMPB sR, #0 
BLT 3$ 
CMPB 3 séR2,, #7 
BGT 3$ 
ASL Rl 
ASL Rl 
ASL Ri 
ADD R1 
SUB #°0,R1 
INCB = YES 
BR 2s 
33: 
GTNMO: DEC RO 
MOV RO, KBPTR 
GTNUM1: TSTB YES 
RTS PC 


;DECIMAL ASCII TO BINARY CONVERT SUBROUTINE . 
ATO TOI: MOV KBPTR, RO 
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;GET STRING POINTER. 
;DATA 


;GET A BYTE 


MULT. 

;ADD NEW TO OLD 

iB GET RID OF ASCII STUFF 
;SET FLAG 

;MORE, MORE 

;SAVE STRING POINTER. 


; NOMORE 


POINT TO STRING 


CR )+'R GET DIGIT. 
~ ae ere yah oo 
CMP R3, #9. :CHECK UPPER LIMIT. 
BGT GTNMO :TOO HIGH. 
Ret OB 
ADD R3, R2 ALL DONE. 
BR ATOII 
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SEG 0025 
TINE 
TUP ROUTINE, INPUT INIT ROU T ROUTINE 
| ore ee cote Bay gSBTTL DEVICE SETUP ROUTINE, INPUT, INIT ROUTINE 
) SETI: 
; () 001442" eo me bd :FNOICATE. Ne OED. 
ait Bolee” 01 BUSET: NOV. (PRIS RS Res 
() 601456" 12708, SIDDB:: .WORD SENT -(SP) ~ T RELOC FACTOR IN S 
+H atest 01674 177172 16: tad #DEVTAB, RO iGET OFFSET FOR DESIRED Week : 
(1) OO14eD" 018700 OOMESE: as le :HOLOS CURRENT ORIVE.#. TIRE 
ff aa 11000 CURORV: Ov RO), RO CORRECT Fach Sa 
(1) atid 061600 TSR Pe (AD) i RO RRECT- PARAM ABOR FOR RELOCATION. 
’ ( ) J 
(1) vate 1600 a RO, SREL7+2 ; MOVE ey nee Te DDB. 
(1) 001800" 010067 pone 4 SR :. RS, BNO PVE INBOOT ‘DEST, SOURC a 
(1) OO1Si0* Govse" EE ees ee srel7 /R3 ;NUMBER OF ENTRIES TO RELOCA 
(1) poleee* BisroY Aaoort 5s, poids tp} *(R3)¢ ‘oer ENTR 
(1) 01830 Obs ONE OS SBNOTHER ONE NEEDS IT. 
(1) ool BOD —«¢SP)+, XDRCRS) {ANOTHER OF 
(1) 001592" OO1375 on AD (SPs, NAPE NEED 
(1) DOLeHO" BEQ © -RESRZA ;BR IF 
(D ieege Ceol FILNAN: TSR RS, BCLERR ;CLEAR NAME AREA TO BLANKS. 
(i) O01544" , 
1 , #4 L3 I NAM, 40,6. < 
dD) OBLSso" Bos866" BODOG 000006 SRE wearers {RYBD BUFFER POINTER TO RO. . 
o0g2sé R 
it maieee” piezo boaeoe: SREL2: HOV TFN, RA ;UP TO & DIGITS FOR NAME 
* Ol MOV :GET HARACTER. 
(1) gols7e" 012703 000006 rani: Move — (Rb)s,Re sr Se area 
(1) 001576’ 11 CMPB sé, #”” ‘BR IF NOT. INDICATOR. 
(1) po1eo4" Oolong N”” FOV RS, XFLMODCRS) SET FILE MODE 
(1) ’ 
1606’ 010565 177720 pet 38 sont 
(1) atte oe o00015 1S: CHPE age AS :BR IF YES. 
(1) poles” Oo14i1 ; ree. Re, #40 space 
(1) Oolees’ Ob1%63 crea (Re, #°0 ibeSD, Toes YES. NOT ALPHA-NUMERIC. 
(1) oles" tevee? o0060 a ;HIGHER THAN 2? RIC CHAR. 
(1) OO1634" 103403 CHPB = s«Re, #2 :BR IF NOT. ALPHA-NUME 
(1) 001636’ 120227 000132 oss Bove POINTER BACK ONE. 
Hh iibe: 4s a BP ft eel 
(1) sigs 000403 fovea Re, (RHD4 5B TE Sac TER. 
) ° ‘ 
(D POEES Anesas 48 DEC FS jBR IF NOT. ce 
(1) Oolese: 000006 5s Bo TYNAN ie OF NONE BORER. 
(1) O0166e" 001 234 HOV RO,KG SRESTORE REGS, 
(1) O01664" 010067 177 BR RESR 
(1) 001670" 00045 
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TROP 
DMQUFB.P11 DEVICE SETUP ROUTINE, INPUT INIT ROUTINE 


(1) 001672" GO4S67 176212 INVNAM: JSR 
(1) 001676" 047111 O47126 046501 -ASCIZ 
(1) 001704" 

(1) 001706" - EVEN 
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RS, COMCOL ;REPORT INVALID NAME. 
"TNVNAM” 


SEG 0026 


Bae ea Kae 
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REAOL, READC, AND BKREAD SUBROUTI 


SEG 0027 


AND BKREAO SUBROUTINES. 
-SUB TO READ "Sve ork. *e SET oT kg AND Rl POINTES 


ig oes 


1706’ 01 000 GTDATA: MOV 2,R0 OF 1ST DATA BYTE. 
a gigzee ppp Se MOV Ste RI BYTE COUNT IN Rl. 
ae ASUBROUTINE TO READ LINKED FILE BLOCK mp BUF seul ia 
, sh s, ieese INCB 31p0B ae PIP OMODES 
001726’ 005765 O0C006 TST XDT(RS) i PaGT BLOCK? 
001436 BEQ EOME ;BR IF YES. ERROR 
004767 JSR PC, BKREAD READ BLOCK. 
016765 001434 o00006 BUF, XDT (RS) *SAVE NEXT BLOCK ADDRESS. 
000207 READL1: RTS PC DONE. RETURN 
;SUB TO INPUT/OUTPUT NEXT BLOCK. 
750’ 016765 001424 000006 AXTBLK: MOV BUF , XDT(RS) T BLOCK NUMBER. 
756’ 001773 * BEG READL1 -IF 0. wit MORE. ERROR RETURN. 
760’ 062716 o00002 ADD #2, (SP) SET FOR NORMAL RETURN. 
-SUBROUTINE TO READ A BLOCK INTO BUF. 
764’ 004767 000076 BKREAD: : JSR PC CLRBUF ;CLEAR THE BUFFER IST. 
770’ 016765 000106 o00004 MOV SBUF , XBA( SET READ ADDRESS. 
776’ 012765 OO00400 OO00002 BKRDO: MOV #256. BH CRS) *SET WORD COUNT. 
’ 016565 000012 000010 READBK:: MOV XRD(RS),XCO(RS) ;SET READ COMMAND 
’ 004467 o00022 * ‘JSR R4, SAVOY ;SAVE REGS 0-4 
* 004775 177774 JSR PC; aXSV(RS) ‘DO IT. 
< RESR7:: 
’ 904767 000024 JSR PC, RSTOY RESTORE REGS 0-4 
* 900207 RESR7A: RTS PC * RETURN. : 
’ 9O04S67 176054 EOMERR: : JSR RS, COMCO1 REPORT END OF MEDIUM ERROR. 
047505 000115 -ASCIZ ”EOM’ 
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UTILITY SUBROUTINES 
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BG00668 000776 


112120 000022 


110120 000012 
177712 


177670 
004506’ 


000011 
000077 


177622 


177610 


a 
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SEG 0029 
heen BUEEER RS, BCLEAR ALL BYTE CLEAR SUB 
GRO: “BUF #2, 0, Bi6. j DEST, CLEAR VALUE , COUNT ; 
;EXIT. 

“ROUTINE TO MOVE BYTE FIELDS. 
BMOVE:: MOV #112120, BMCe ;SET A MOVB (1)+,(0)+ 

BR BMC 1 
jROUTINE TO CLEAR BYTE FIELDS TO SPECIFIC VALUE. 
BCLEAR: : MOV #110120,8MCe § ;SET A MOVB R1,)0)+ 

" ‘JSR R4, SAVOY ;SAVE REGS 0-4 

MOV (53+, RO :GET DEST ADDR. 

MOV (5)+/R ‘GET SOURCE 

MOV (5)4, GET COUNT 
BMC2: OPEN 

DEC R2 : DONE? 

BNE BMC2 BR IF NOT. 


BNC3: BR UPKNM1 


a. SUBROUTINE. COMPARES TWO 39 CHARACTER NAMES. WILD CHARS ALLOWED. 


JSR R4, SAVOY ;SAVE REGS 0-4 
SRELIS: MOV #IF NAM, RO ‘DESIRED NAME ADDRESS. 
MOV (PC)+,R1 “ADDR OF NAME UNDER QUESTION. 
STXNAM: : .WORD’ TXNAM 
* MOV #9. ,R2 COMPARE UP TO 9 CHARACTERS. 
CMPB saw’, (0) ;CHAR A WILD CHARACTER? 
BNE ‘BR IF NOT. 
CMPB —s- (RO) +, (RL) + ‘POINT TO NEXT CHAR. 
11S: CMPB (0)4,(1)+ ; COMPARE CHARACTERS. 
BNE 3$ "BR IF NOT SAME. 
2s: DEC R2 ‘MATCH. DECREMENT COUNT. 
BNE 1$ ‘BR IF NOT DONE YET. 
TST (RS)+ ‘DONE. SET UP MATCH EXIT. 
3S BR UPKNM1 
j SUBROUTINE TO CONVERT RADSO FILE NAME TO ASCII. 
JSR R4, SAVOY ;SAVE REGS oH 
MOV (Rb) +, Ri iGET 
MOV (RS)+,R ;GET 
JSR RS, UNPACK :UNPACK 2 WORDS: INTO 6 ASCII BYTES. 
ADD #3, Rg iF NT TO EXT 
J RS; UPACK! ACK 1 WORD INTO 3 ASCII BYTES. 
UPKNM1: : 
RESRSt: ee pe STON STORE REGS 0-4 
age Re’ ‘AGRE ORE BN. 
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RADSO UNPACK SUBROUTINE 


| DMQUFB.P11 
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i he ah eh ed 





5 oF Maeueeees 


oo00s0 


ee EEE EEE EEO EEO EEE O_o 
Ce a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


ee eee 


000001 


UNPAO3: 
UNPADY: 
UNPAOS: 


inpaoe: 


bocrr: 


.SBTTL 
INPUT: 


. WORD 


O1-MAR-77 10:34 
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RADSO aero ONS 


spn 
1 coh wile T i BYTES) CHARACTER 


1600. ,40.,1 


OUTPUT: & 
IF N IS THE MOODYO NUMBE 
THUS nsote. ig'é tern sDst MAINDER 15, C #5043 
THE REMAINDER IS ae "0 38 
t: one “uoRD ONLY. 
: .WORD 
BR UNPAD7 
: MOV #-2, PAKTMP ;MAJOR LOOP COUNT 
JSR R4, SAVO4 REGS 0-4 
MOV 8-3, R4 : MINOR Lbeeve COUNT 
MOV (ROS. RO ‘GET MOD4O WORD 
MOV OEFF Re sPTR RTO COEFFICIENT TABLE 
CLR :0 
DIVIDE BY COEEF ICIENTS 
CMP (R2) ;DONE WITH DIVIDE 
BLO GROABT ‘YES 
SUB (Re), RO NO-SUBTRACT COEFF. 
Inc Re a2 ‘ADD i TO QUOTIENT 
DIVIDE DONE. QUOT IN R3, REMAINDER IN RO 
CONVERT TO AN ASCII CHARACTER 
TSTB) ss RB - - 
Oe aoe 
BEQ UNPADS o- 
BGT ANDY 7" OR "0-9" 
ADD 0,R3 :"Q-2" 
ADD $16/R3 
une 
MOVB He tRi)+ ;STORE CHARACTER 
TST (R2)+ “ADVANCE TO NEXT COEFF. 
43 RY 3 
UNP : NO- 
MOV (SP), RO *RESTORE ORIGINAL RO AND 
TST (RO)+ ‘MOVE TO NEXT WORD 
N fet ; 
BO NE--PUT CURRENT R1 ONTO THE STACK 
MOV R1, 2(SP 
BR UPKNM1 GO EXIT. 


;40.t2, 40.t1,40. 10 


ee oe + ee 


SEG 0030 


g 


ae} 
= 
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ee os bb b= bb b= bP = bb bb 2 2 b= 0 bb be bb bp bP = ph Pe 
tt a a tt at et et tt et et a a ee as et at a as a a a a ee a a a a ee 


Tee 


i a a ee ee ee ee ee ee ee ee ee te ee ee ee ee ee ae ee ee ae ee ee a te ee ee, ee el 


FILL, RUN, AND START ROUTINES 
FILL, RUN, AND START ROUTINES 
> 012703 FILL: (PC)$,R3 ;GET READY TO TYPE FILL COUNT. 
9 176614 deena be T sPRINT THAT OUT 
° Bpa7e3 esha pet :T R. 
 OONSE? 176376 RS, INPUT ‘WATT FOR INPUT 
’ 7? 176654 PC’ GETNUM ;CONVERT INPUT STRING TO BINARY 
’ 001 Mob1 : JUST DO NOTHING 
, 010167 177750 R1,FILLCT : PUT WHat RD ENTERED THERE 
’ MOD1: PC 
’ 004767 176640 iver, “a PC, GETNUM sFETCH STARTING ADR 
* 001420 RUNIO ;BR IF NO DATA TYPED. 
* 006201 Ri ADDRESS? 
* 103404 INVADR 'BR IF NOT (ODD). 
° 960101 R1,R1 ;REST ORE ADDR. 
’ 010167 O004S4 Ri STAOR R. 
, ppaces 175420 INVADR: RS, COMCO] ier INVALID ADDRESS. 
’ 047111 *INVADR’ 
* 000 
EVEN 
° RUN: NCB = RUNID T RUN INDICATOR. 
, SR PC, LOAD ‘86 A Load | sf: 
— sou PCAUNT PCOUNT sGET "iene T IF ANY 
, ReRY : iB if COUNT fF 
‘ INC PCOUNT : IT ONE. 
, RUNI1: Is CHN ‘CHAIN MODE? 
REL 10; Ov TRT. ase IST RESTART ADDR IN LOC 42 
P : * . . 
; RURCO: HOV eFROR RI 
° BCC RUN3O BR IF EVEN DOR. 
’ V #100,R1 START AT 200. 
, RUN3O: Ae Rl a8 THE ADDR. 
’ RUNYO: MOV FILLCT,-(SP) PASS THE FILL COUNT. 
, MOV #12345; -(SP) iT NDICATE XKDP HONTTOR LOAD. 
, JMP =. (RI) :START THE PROGRAM 
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DMQUFB.P11 DIR ROUTINE 
(1) .SBTTL DIR ROUTINE 
(1) 7? 176642 DIR: JSR PC, SETI NO NAME D. 
th) yee . ee MOV (Pt) +,=(SP) -GET FILE POSITION COUNT. 
(]) ar 
1) ppoeS 0000006 J C, CREWND ;REWIND T 
(1) Oow767 0000006 1S: JSR PC’ CRDHDR * READ FILE LABEL. 
(1) 002614" % BR FLNOTF -EOT RETURN. 
i) Saas: Bere Ber a ok 
(1) O02e622" 00672 TST RESTORE STACK. 
(1) 002624’ 012765 010000 000002 Hoy #MONCNT, XWC(RS) jake WORTH. ag ARTING AT LOC O 
( , : 
(1) Bose3e" raat 58R oF bo "ae 
1) Bee: Glee Pe mY eter pa ne bate Siege 
(1) poses" S167 175260 Nov SCONCS, (SE) IPRs on RORITOR Res raat BOOR. 
(1) O02662’ A 7 RUNYO ” ‘G0 TO CUBR REST DENT’ DIR ROUTINE. 
a) :VIA RUNSO. 
(1) - INPUT INIT ROUTINE 
(1) 4’ tNITI: MOV DDB : POINT TO INPU 
(1) nessa pte2 08 i 44 MOV Boor eB K (RS) BP oat NUMBER: 
(1) 002674 004775 177770 ISR PC; aSRH(RS) Fe SEARCH 
(1) need popcee 177744 00006 MOV X1STBK(RS) ,XDT(RS) tS ant, BLOCK # TO INDT 
(1) 002710" 000207 ia RTS PC ‘FOUND. RETURN. 
(1) pests. 004S67 175172 FLNOTF:: JSR RS,COMCOL ;REPORT FILE NOT FOUND. 
(1) 002716’ 042516 043130 046111 .ASCIZ ’NEXFIL’ 
(1) 002724" 000 
(1) 002726" EVEN 
, 


ee 


» 
oo 
es 


- TOR M-11-DMQUF-B MACY11 27(732) O1-MAR-77 10:34 PAGE 1-32 aioe 
OOUFB.PL eal AOUTINE. ;.BIN OR .BIC FILES ONLY SEG 0032 
(1) .SBTTL LOAD ROUTINE. ;.BIN OR .BIC FILES ONLY 
{5} poser, — PC, SETIN ;SET INPUT DEVICE. NAME NEEDED. 
| ) 002732’ reed ive A 001554 ape #"BI, IFNAM+6 :SET UP BIC EXTENSION. 
| (1) Q02740" 112767 000103 001550 MOVB °C, LFNAM+8. , 
| t OOe7He: 005767 75170 TST CHN sIN CHAIN. MODE 
dD) Bk, ow RO, RK hy T CHAR WILD. 
’ 9 + : 
(1) ree Aiezee reed — nove are ene. 0, fe “Lest come 
(2) 002766’ 1S: " me ry FoR aod 
(2) ’ 004767 17767 ; ’ " INPUT A BLOCK OF DATA 
i em: ease FRE toys RM ea 
. : 0 
(1) posboe" thse 000154 — JSR PC, ROFRAM ;READ A SYNC WORD 
(h) river’ 005703 TST R3 ‘GOT A NULL’ 
i) 903019" 1 BEQ OAD2 sJE_YES, KE P READING. 
(1) Seas 001025 Bre CKSMER LIF NOT, LOAD ERROR. 
(1) 003016’ 004767 000140 JSR PC, ROFRAN sSYNC I A WORD 
(1) ices Aptos BNE CKSMER :50 _{E_SECOND HALF MUST BE 9 
(1) 003026’ 004767 000154 ISR PC, ROCFRN 2. BYTES=1 WORD ee 
(D) 003034’ aa 000004 SUB e "MINUS THE HE 
(1) 003040’ A oo0002 CMP #2; R4 ‘BYTE COUNT=67? 
(DD * 0014 BEQ LIMP "IT IS. THE END IS NEAR 
(1) reas Bpa7ee 000134 JSR PC, ROFRM iGET LOAD ADR 
(1) 003052’ 010302 : ; 
(1) pasos poor, CUOte seine dt | hoo tes evr COUNT NOT ZERO YET. 
(1) 003062’ 105767 177712 TSTB CHKSUM FHC SUM SHOULD BE 
(1) * 001743 BEQ LOAD2 » Spee 
(1) rena OO04SE7 175014 CKSMER: JSR Re, CONCOL RE 
(1) 003074" 045503 046523 051105 .ASCI2Z SMER 
(1) 003104’ rinse 175000 POFLOW: ee RS, COMCO1 PROGRAM OVERFLOW MESSAGE. 
(1) 003110’ 047520 046106 000117 -ASCIZ "POFLO a 
(1) 003116’ 020227 o00000° LOADY: CMP R2, #RESTCK ;PROTECT THE MONITOR 
+} Wietet US3ee aove R3 coy :STORE THE BYTE. 
) BosiBe: pooos2 » Be ‘= + THE JUMP ADR 
(T} Baia" BtO3e7 la MOV R3, (PC)+ ‘STORE IT FOR RAINY DAYS 
(1) 003136’ 000001 STADR: .WORD 1 ae ienhonia aaa 
i) BEELR: Fos7ey S08 fi Gwe Le dU eh HERS 
’ R 
(1) rietee hee oo00004 000041 fOve perth ;SET LOAD MEDIUM INDICATOR. 
tt) tet Are pt YTE COUNT IN BUFFER 
(D) alts 1 ROFRAM: PPL ROFRNA iB OMETAANG IH BUFEE 
th) 003166’ 004767 176514 ISR PC,GTDATA iN, ro" ueior HER BUFFER ULL 
(1) 003172’ 000773 BR RDFRAM 
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ROUTINE. ;.BIN OR .BIC FILES ONLY 


: MOVB 


103 
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(RO)+,R3 :PICK UP CHR 

R3, CHKSUM DO THE CHECKSUM STUFF 

RY ‘LOAD BYTE COUNT 

PC, ROFRAM ;GET ONE BYTE FIRST 

R3, (PC)+ STORE IT TEMPORARILY 
‘TEMP STORAGE. 

PC, ROFRAM GET THE OTHER BYTE 

R3'LTEMP+1 ‘INTO THE HIGH BYTE 

LTENP,R3 i BACK INTO R3 


a a + ee ee 


JQ3 
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BATCH DEVICE DESCRIPTOR BLOCK (DDB) 


DMOUFB.P11 


-—s. BATCH DEVICE DESCRIPTOR BLOCK (008) 


- 


a 
PASADENA ENED 


es Febbe eSeEe oe 
nee eeeeerre ea 


: 
SEEESSSeccEESseseeeeeeceeeEneEEEes 


0,0,0,0,0,0,0,0,0 


-BYTE 


BTCEND: 


er eoeweereee#eerkeerreneet ® eee es ®e® f® ® 8 &® ef & Ff eF fF eee e ee &F & & 


es 





. EVEN 


003354’ 


ediioidiendeetnemthaneiadneaiatiandannambamhadaanines ncmeamnamatanminmndantadnadhadieertmtantiemandednnd mieemmtennaee 
i i Me i ee ee ee ee ee ee ee ee ee ee a hhh DD he 


————  —-- — 
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DMQUFB.P11 BATCH DEVICE MNESCRIPTOR BLOCK (DDB) 
(1) : KEYBOARD BUFFER: 
(1) 003354" oo0012 KBUF:  .BLKW 
(1) .SBTTL 
(1) 003400" 

(1) 903400" 999400 


itetn REAQ ~ cyARITE, BUFFER 


O1-MAR-77 10:34 PAGE 1-35 


START OF CLEARABLE CORE (DURING INIT) 


a ee a ee ee me ee ee ae ee” 


;BEGINNING OF CLEARABLE AREA (DURING INIT). 


SEG 0036 


en ee nee ee - ee + ee - ee 
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| DMQUFB.P11 INPUT DEVICE DESCRIPTOR BLOCK (DDB) | SEG 0037 
Lae wes -SBTTL INPUT DEVICE DESCRIPTOR BLOCK (DDB) 
| 2) po4yoo" DDBSTR: INDDB: 
| C1) 904400" oD0000 THCTR: .WORD 0 SXWCTR OUTPUT FILE OPEN FLAG 

(1) Oo44Q2’. 900000 IFLMOD: : "word |XFLMOO FILE MODE FLAG 

(1) OO44O4" 000000 IFLCNT: .WORD “XFLCNT * FILE COUNT 

(1) 04406" 000000 TSVMAP: ‘WORD 0 iXSVMAP BLK # OF FILE'S MAP BLOCK 

(1) OO4410° 000000 TSVCNT: [WORD 0 EXSVCNT ENTRY # OF CURR FILE IN UFD 

(1) Oo#12" 000000 TSVBLK: ‘WORD IXSVBLK BLK # OF CURR FILE'S UFD 

(1) -UFD DIRECTORY ENTRY DATA FOR FILE 

(1) 04414’ DO0000 D000 iSVNAM: .WORO 0,0 5X FILE’S FILENAME IN RADSO (2 WORDS) 
(1) 04420" 900000 TSVEXT: “WORD 0 tXSVEXT FILE'S EXTENSION IN RADSO 

(1) 04422" 900000 TeVDAT: “WORD 0 IXSVDAT FILE’S CREATION DATE IN DOS FORMAT 
(1) Oo44e4’ DoO000 TSVxx:' “WORD 0 tXSVXx (NOT USED?) 

(> Oowge* 90000 TISTBK: “WORD 0 IXISTBK BLOCK # OF FILE'S FIRST DATA BLK 

(1) 04430" 000000 TBKLGT: “WORD 0 tXBKLGT © § OF BLOCKS IN THE FILE 

(1) 04432" Qo0000 ILSTBK: {WORD 0 ‘XLSTBK BLOCK ® OF LAST DATA BLOCK WRITTEN 
(1) OO4434’ QD0000 TSVUPT: “WORD 0 iXSVUPT (NOT USED?) 

(1) “END OF DIRECTORY ENTRIES 

(1) 004436’ o00000 INBOOT: .WORD 0 XBT ADDRESS OF “BOOT” ROUTINE 

(1) owas? poacon er OER BORE a a 

(1) DOME? poobbo ee :DLT BOORESE OF “REDSES ROUTINE 

(1) 04450’ 900000 INETR: “WORD 0 FETR ADDRESS OF “ENTER (CREATE) ROUTINE 
(1) 04452" 900000 INSRH: ‘WORD 0 RH ADDRESS OF "LOOKUP" (SEARCH) ROUTINE 
(1) 04454’ Q00000 INALC: “WORD O FALC ADDRESS OF “ALLOCATE” ROUTINE 

(1) OO4455" 000000 INSRV: “WORD O i XSv ADDRESS OF DEVICE DRIVER ROUTINE 

(1) OO4460’ 000000 INDRV: ‘WORD 0 tXON C DRIVE (UNIT) NUMBER 

(1) oo44ee” INDEV: 'RS POINTS HERE é 
(1) OO4462" 000000 INCH: .WORD 0 XCM ADDRESS OF DEVICE'S COMMAND REGISTER 
(1) OO44e4’ OO0000 INNC: ‘WORD 0 WC CURRENT WORD COUNT 

(1) oowM66" 000000 INGA: “WORD 0 XBA CURRENT BUS (MEMORY) ADDRESS 

(1) poN476" go0000 ete .woRD oo -XDT CURRENT BLOCK NUMBER 

(1) 04472" 900000 INCOM: ‘WORD 0 'XCO CURRENT COMMAND CODE 

(1) Oo4474" Qo0000 INPRC: “WORD 0 ix READ COMMAND CODE 

(1) 04476’ 000000 INPWC: 6 WT WRITE COMMAND CODE 

(1) 904500’ 000000 INBKCT: “WORD 0 tXBC REQUESTED BLOCK COUNT 

(1) 904502" 000000 INDIR: “WORD 0 *XOR ADDRESS OF FIRST DIRECTORY BLK # 

(1) 904504" 900000 INNBK: “WORD 0 + NG LAST BLOCK # ALLOCATED (NEXT BLK #) : 
(1) 004506’ 000 000 IFNAM: [BYTE 0,0,0,0,,0,0,0,0 “XXNAM FILE'S NAME IN ASCII (9 CHAR'S) 
(1) 004511’ 000 000 000 

(1) 004814" 000 000 

(1) 004520" LEVEN 

(1) op4se0 DDBEND: 
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INT TIALTZABLE VARIABLES /ASCII STRINGS 


B88 


ICOUNT: 


BUNID: 


-SBTTL INITIALIZABLE VARIABLES/ASCII STRINGS 


. WORD 
-BYTE 
BYTE QO 


t: .BYTE 0,0,0,0,0,0 
‘BYTE 0,0,0 


23) STRINGS 
-BYTE 11 ,0 
. EVEN 


SEG 0038 


em TS VT a 
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DMQUFB.P11 COMMAND, SWITCH, AND DEVICE TABLES 
(1) rT COMMAND, SWITCH VICE TABLE 
(1) OMMANDS ARE CHEC CKED AO PST Fue QUOTES 
Cd foie NO L ABBREVIATIONS ALLOWE 
(3) poaeuS: oo0s42’ .WORD SETQ ;DISPATCH ADDRESS FOR /QV 
(2) O04SSe” ’ .WORD SETCNT ‘DISPATCH ADDRESS FOR / 
(3) SoMSee” Speiog’ “WORD FILL OT EATEN ADDRESS FOR E 
(2) Doser" oge44e" “WORD START DISPATCH ADDRESS FOR S 
i BB Baca 1 Bleperey tess Fon 
(2) 004616’ 000214’ [WORD DOIT : DISPATCH S FOR C 
2 bee: tere ae Bleberey mweee FB 
(2) tend 000212" wo RTSPC *DISPATCH ADDRESS FOR <15> 
(2) OO4646’ O00S46’ WORD ‘DISPATCH ADDRESS FOR <40> 
1) DO46S4’ 177777 WORD -1 
(1) 
(1) 004656’ DEVTAB: 
(1) 004656’ o00000G SETMTO 


.WORD 
;END OF SOURCE. 
END 


i 
: 


A a 
, 


i 


BO4 
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SEG 9040 


ch tects pice eter i tet ester eeu ntetee 


Bh a a hh ah hh hd ed hd ad a hd gd Od wh eh ett 


8 B88 8 mem: BEStesseeeeess Seeesess 


lana 
sohgeganen doa usage evoreues faleteers 


T 
CROSS REFERENCE TABLE -- USER SYMBOLS 
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G 


tg 
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SEG 0041 
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=m BS88s BS S888 S888 88 SESksss Ssssessesessssssss 


Deemer 
eeeae ae if 


= SNSrRES | 
ae sssagne rine 


33 son ham ham am bam han an bem ham bam ham bam bam bam am bam pee) 
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"TROP - 
| OMQUFB. P11 


ich wet eee eetars RUBE SE RE RE EERE ERE REAR RE EE RE SRS 


AI hh Sed ed hd ed hd dh hd de EE 


BESS SSSSSS SSS SSSSSkSeeeesesees SSSsSsssssessesssssssssss 
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CROSS REFERENCE TABLE -- USER SYMBOLS 
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be Saale 


a 
BSSSsessSesesarieses ses esee@8@0,2en 2 8 


*Y ghaaanatassasansiaantasattititansasanatt 
: eg 


EE hd ew ed id ed hd od Ht 


BS Ss88s 8888 § 88 


8 
Se ee 
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eerie 
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E aegereoees 






| 
| 
| 





aa 
| 
| 


SES 0044 


FO4 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


TR79F_ MONITOR M-11-DMQUF-B 


:- 


Ho 


er ee 


pec eet ech eee etc ucci eure peice | 


BUUGGAOIGIAGOAGIG AGATA IAI AAAI. 


SSSesesesees BSHeesshessssseseesseseses Ssesssesess 8 


ooo 9 


a one ces 


mcUcer 


Wwe Use 


SoeccbbobeverastbrocctoMtirtbcoreteeneciseseneORiEe. 





ee ee ee 2 ee 


SEG OO4S 


GO4 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


TROP - 
DMQUFB.P11 


avgzwe 


& 
2 


5 


tae ttet 


1333 


uci enece eerste Beans 


ed 8k 8 ek nh nd ond nd ond Sh nh 8 nd nh OG Od Od nd Od ah od eh wn oh ond eh en 


88 888  s8Sksesesssssss 


ae 


arena 


HOY 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


ty TR79F_MONITOR M-11-DMQUF-B MACY11 27(732) 


od 
4 
oa 


of te 


G 


1 


eee 


fie eonteailes : 


$100 


13338# 
i 
13338% 
3338% 
3338 
3338 
3 
3338 
13338# 
13338 
13338 
00S 13338 
13338 
13338 
13338 
13338 
13338 
1ase8 


ot 
BVBVWSOsSSsSsSsssesevwaesaesese2anuau 


PURER Maneatis | 


ee 


O-UMTNw 


Sear ee 


TROP - 
DMQUFB.P11 
INITI 418 
READL Soe 
RESREG se 
RE 8 
RE 3e8 
ROUTIN S38 
aves 238 
TBN 478 
SETIN or 
TOKN Se 
TOKNS 148 
UNPACK 358 
_ UPACK1 388 
XDPMON 1098 
SBOOT 1eS4e 
SIDENT 638 


1333 
1333 
1333 


BeBe B Baa 


i 


0 bo ee ae 
WWWW 


WWW 
WW) 


XXDP TR79F MONITOR M-11-DMQUF-B yt 27(732) O1-MAR-77 10:34 PAGE 3 
CROSS REFERENCE TABLE -- MACRO NAMES 


a 


JO4 
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CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


a 


SEG 0048 


1323 
1333 


Rice hie iv ie iviete hie hiv eee hieteieietee Re iMiete eure beta ute tete tutte ut 


Sa eae Rete Ree Ree eee Ree Kee Kee Kees Ree Kee Kee Kee Kom em hem hee Deon Noe bee Kee Kee hee Ree oe hoe kee ko ee en ee et LL LL LL LL tL Lt ke ee! 


-Pll 


- XXDP TR79F MONITOR M-11-DMQUF-B MACY11 27(732) 


mNP 


D2 sumuamnastotezaSacec as ebaieDenehe rel Sedlaaneseetes 


BYTE 
CSECT 


a a ae 


Ay 


ais 


Bi 
& B33 
Be oS 


04 
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Pll CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 
oe 4 1 
z 14 3 26 293 32 38 38 4] yy 
1254 
1 4 1333 
1333 
1333 
iss 
1333 
002706 000 
000710 001 
000000 002 
001000 003 
000000 004 
004660 00s 


DETECTED 


ERRORS : QO 
DEFAULT GLOBALS GENERATED: 0 


#TRDPM, TROPM.LST/CRF=DMQUFB.P11/EQ: TROP 
RUN-TIME: 3 4 -6_ SECONDS 


5 
16K (31 PAGES) 


ee ee a ee ee 


47 


50 


$3 


— SEG 0049 


ee ee + 


am ee 
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DOMOUFB.Ple 


SEG 00S0 
1 .LIST ME 
2 “NLIST MC,MD,CND, TOC 
1000 "TITLE TRISF'- XXDP TR79F MODULE READ-ONLY 
(1) “SBTTL EQUATES 
(1) po0000 RO =%0 
(1) 000001 Ri =%1 
(1) oo0002 Re 2% 
(1) 000003 R3 =%3 
(1) 000004 RY =%4 
(1) 000005 RE =45 
(1) 000006 R6 =%6 
(1) 000006 SP =%6 
(1) 000007 PC =%7 
(1) ho0008 + OR bd 
(1) 000200 DONE =200 
(1) 100000 ERROR =100000 
(1) 177716 XWCTR =-62  ;INDEX TO WRITE COUNTER. 
(1) 177720 LMOD =-60 INDEX TO FILE MODE INDICATOR 
(1) 177722 XFLCNT =-56  ;INDEX TO FILE COUNT 
(1) 177724 XS =-54; 
{]) 1777: XSVCNT =-S2 . 
(13 1777 XSVBLK =-50~ ; 
(1) 177732 XS =-46  :PHONY UFD BLOCK POINTERS 
(1) 177736 . XSVEXT =-42 ; 
(1) 177740 XSVDAT =-40 : 
(1) 177742 XSVXX =-36 : 
(1) 177744 XISTBK =-34 
(1) 177746 XBKLGT =-32 . 
(1) 177750 XLSTBK =-30 ; 
(1) 177752 XSVUPT =-26 ; 
(1) 177754 XBT =-24  :INDEX TO BOOT ROUTINE. 
(1) 177756 DRT =-22  $INDEX TO DIRECTORY ROUTINE 
(1) 177760 2ER =-20 INDEX TO ZERO ROUTINE 
(1) 177762 DLT =-16  ; INDEX TO TE ROUTINE 
(1) 177764 CLS =-14  ;INDEX TO CLOSE ROUTINE 
(1) 177766 ETR =-12  ;INDEX TO ENTER ROUTINE 
(1) 177770 SRH =-10 INDEX TO LOKUP ROUTINE 
(1) 177772 ALC =-6 INDEX TO ALLOCATE ROUTINE 
(1) 177774 XSV =-4 INDEX TO Ice ROUTINE (DRIVER). 
(1) 177776 XDN =-2 *DRIVE NUMBER INDEX 
(1) 000000 XCM = * INDEX TO COMMAND REGISTER 
(1) poo002 XWC = INDEX TO WORD COUNT 
(1) 000004 XBA : * INDEX TO ADDRESS 
(1) 000006 XDT =6 INDEX TO BLOCK NUMBER 
(1) 000010 XCO =10 INDEX TO 
(1) 000012 XRD =12 > INDEX TO READ COMMAND 
(1) 000014 XWT =14 INDEX TO COMMAND 
(1) 000016 XBC =16 INDEX TO REQUESTED BLOCK COUNT 
(1) 000020 XDR =20 * INDEX TO 1ST DIR BLOCK POINTER. 
(1) po00022 XNB =22 “INDEX TO LAST BLOCK # ALLOCATED. 
(1) 000024 XXNAM  =24 INDEX TO ASCII NAME IN DOB 





es ee oe 
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DNQUFB.P1 


tan ae te he ae ae ae ae ee he ee ee a he ee ce 
bb --b <b +b 2 + b+ = P= > - PP bh  - 
ee a ee ee ese le 


GLOBAL REFERENCE DEFINITIONS SES 0051 


-SBTTL GLOBAL REFERENCE DEFINITIONS 
;EXTERNAL GLOBAL DEFINITIONS 


.GLOBL ®BMOVE,BCLEAR, CHROUT, CRLF 
“GLOBL CLRBUF, CHEN 

“GLOBL DEVERR,ITOA, MES 

GL PEROT Rent " TXNAM, RELCNT 


“GLOBL § Hb vot UNPACK , UPACK 1 


“GLOBL $TPNM1 
“GLOBL FSTMOD 


— —< a a a 


sl 


QE LOL LOLOL LOL LOL LPL POO Pm, lm, 
PS bt bo ba bs be bs he he be ps be be pe pe 
ee ee ee 


. 


EE FRR FR FRR FR 
= be be pe Be be Be pe 
ee ee eet ee ee ee ee ee ee 


BFRe8 


oe 





XXDP TR79F MODULE READ-ONLY § MACYL1 27(732) O1-MAR-77 10:27 PAGE 1-2 
12 TABLE SEG 0052 
Sart PARAMETER TABLE 

000000’ PARAM: INVC 
oo00002" DIRECT 
000004’ hers 

, NV: 
et ie 

12’ INVCMD 

000014" LOOKUP 

’ NVC 
a ie 

’ UNIT: ;UNIT @ 
oo0024’ CMDREG: 164000 ‘COMMAND REGISTER ADDR 
000026’ WCOUNT: 0 * WORD COUNT 
ANN 3h $ H 
renee Brock: 6 iB eck RUMGER 
epee COMD: 1, 
000036’ READ: 5 ; 
p00040° WRITE: 3 “WRITE COMMAND 
oo004e2” RBKCT: O "REQUESTED BLOCK COUNT 
oo0044" DIRPTR: DIRBLK iP NTS TO 1ST DIR BLOCK. 
000046’ LSTBLK: 0 T BLOCK # ALLOCATED 
000050’ 

j PARANE TER TABLE FOR MTCOM SECTION. 

000050’ 177777 OIRBLK: ;-1 INDICATES SEQUENTIAL FILE DEVICE. 
000052’ 000106’ REWIND ‘POINTS TO REWIND ROUT 
OO0u54 000142’ SKIPR ; POINTS 19 SKIB REVERSE BLOCK ROUTINE. 
NnONSS’ 
030060’ Boogooe INVCMD SRT POINTER. 
DOODES’ 000352” RUMOR. + BOINTS FO. ROFER ROUTINE. 
000066’ O000000c INVCMD tWEOT POINTER 
000070’ 164002 
000072’ 164000 
000074" 164004 
000076’ 164006 





| TR79F = XXDP 7R79F MODULE READ-ONLY MACY11 27(732) O1-MAR-77 10:27 PAGE 1-3 
| DMQUFB.Ple SETMT ROUTINE SES 0052 
i 41009 .SBTTL SETMT ROUTINE 


1010 000100" SETMTO: : 
10ie 000100° 012700 000000" MOV #PARAM, RO ;POINT TO PARAM TABLE. 
1G 000104" 000207 RTS PC DONE. RETURN. 





eee | - - 


TR7OF - TR79F MODULE READ-ONLY 
DMQUFB. P12 MAGTAPE ROUTINES 
1g1? 00106" 904767 
Big RBIS: STH BRERE rr 
| 1013 001 sae a 
| 1081 OouLee" rene 
ooo" bow7e7 000026 
i Be ee 
® ' 
188 pies: pase 00001 1 
| 1028 b00156; 012768 000001 oo0002 
| 1053 vrattt 0 0000s 
| HD Re: Bes 
| 1033 0001 ; £46803 o00013 
1034 ’ 
| 1035 O00204" 010377 177662 
| {OS Besse. Badog, Co00ee 
' 1053 
| 3054 
| 4085 00216" 012767 oD0002" oD0000" 
1056 000224’ 066767 O00000G 000000’ 
1057 000232’ 
ies 
1060 
1061 
IDES boneae’ prease Soop, 177832 
1064 ’ ppa7e9 177ece 
1065 * 016777 000000’ 177616 
is * 005077 177604 
1o74 ; Brrr ; samen” vais 
l , 
Oe oon hoo43 000001 177560 
1077 000310’ 001774 
ine 000312" Gse777 000040 177550 
| 1980 Qogsee* OO476? 177640 
1988 000330" 032777 000010 177532 
1084 cnet 05267 000000’ 
| 1085 00344" 
198 000346’ 000167 oo00000¢ 
= 
1088 
| 3089 
| 1090 
| 1091 


MACY11 27(732) 
. SBTTL 
REWIND: ish 
IT 
1$: 


Ris 
SKIPR: if 


WRTIDB: MOV 
MTDRV: CLR 


TRBSET: MOV 


MTDO: MOV 


ze 

5 * 

8 

9 

moLloun 
DBa<Da> 


jatetetitutetutet tutete 
o4AWVO +A0 +0 -1< 


=z 

4 

m 

xz 

—_— 

= | om) 

322 
w 
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MAGTAPE ROUTINES 
PC, MT SELECT DRIVE 
“wp pac rae 
0377 R3 i CLEAR OUT GARBAGE 

1,23 * REWIND 
mTDb !CHCK FOR DONE 
PC, WRT IDB 360 WRITE IDB 
PC, MTDRV SELECT DRIVE 
na ee oer 
#1, XWC(RS) ‘ 
MTDO 
#5, R3 ;W/R IDB 
give ; 

+1(RS),R3 GET DRIVE NUMBER 
Ma :PUT_IN LEFT HALF 
R3, aNTCM ‘SELECT THE DRIVE. 
PC; MTDO2 :WAIT FOR DRIVE ROY 
PC t RETURN. 
#TRBUF , TRBF ; 
RELCNT, TRBF ; 
PC : 
XWC(RS) , BMTHC GET WORD COUNT 
PC, TRBSET : 
TREF , aMTBA ‘MEM. ADDR. 
anTst :CLEAR STATUS 
R SNTCH ree : SET THE FUNCTION AND GO 
i sHRLTING 
#1, aMTST :DRIVE READY? 
MTbO2 ‘LOOP TILL DONE 
840, IMTST ‘LOAD PIONT 
PC, WRTIDB ; 
#10, IMTST EOF? 
MTERI : NO 
EOFSEN :SET EOF SEEN FLAG 
MTDOe ‘WAIT FOR DRIVE TO SETTLE DOWN 
DEVERR DEVICE ERROR. 


SEG 0054 


—_<— eR 


-  XXDP TR79F_ MODULE READ-ONLY 
-Ple MAGTAPE ROUTINES 


a 


BESRRIOR 


poaee 


NNN 





ogee 
o 
RO 


ae 


: 


Si 
e 


eee 


0000006 
001000 177350 


ee 


— 


ee ee ee ee ee ee ee ee be ee ee 
FRESH“S SBI VRREOH HB VBVRR VON Baw Nencow-oSSVeR EOS 


a 
ee ee et ood bs bs bs bP b= b= = b= Bb = BP = = = Bb bP FB = 0 bb ph = = ps he Oe Be pe 


MACYL1 27(732) 


RHOR 1: 


RHDR6: 


WDA 
Aww 
44 


RHOR3: 


aR 


PAK: 


1S: VB 
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EOFSEN KEEP TRACK OF EOF’S SEEN 
PC, MTORV :SEE WHAT HAPPENS 

-14. ,BYTCNT ‘SET BYTE COUNT 
eae 

PC, TRBSET : 

TROF , IMTBA 

anTst ;CLEAR INHIBIT 


(RS), aMTCM ;D0_A READ 
Boone ‘Pea PRX MAKE SURE OF DONE 
, aMTCM ; DONE? 


RHDR1 :NO 
eB ers ee 
& : 

;NO 
: OPSEN UP COUNT OF EOF’S SEEN. 
#3, EOFSEN :SEEN 3? 
RHORY :BR IF YES. EOT. 
ae 2p ;NO ERRORS SKIP RETURN 
PC’ PAK :GO PACK THE BUFFER 
i : 
#1000, aMTST ;BLOCK LENGTH ERROR? 
RHDRS ; ke 
MTERI SOME KINDA ERROR. 
R4, SAVOY ;SAVE REGS 0-4 
Pc’ TRBSET : 
TROF , RO GET INPUT BUFFER 
DES Ri :GET TPuT BUFFER 
(ROS+, (R1)+ : T IN 
RO :POINT TO NEXT WORD 
BYTCNT : COUNT THE BYTE 

‘BR IF NOT FINISHED 
PC, RSTOH RESTORE REGS 0-4 


coo 


a TT 
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_ DNQUFB. P12 MAGTAPE ROUTINES 


1147 
1148 
1149 


BY ENT: 





SRR POHL SSBSRRISRAB LOLS 


me 


b= bh bb bb b= bh hs ho bh he heh RA hr mH 


bm bt Ph bb bb pb = Pm be be be be ds eb bs bs he bs bh hs sh hs he he ho 


IVER 
’ ? ' ORIVER: CLRB CE : SAld OF YET 
* O 7 1777 V i Pop POINTER 
* 012767 1 1 oee 1S: MOV 8-512. ,BYTCNT 256 WORDS PER RECORD 
203 000610’ 01277? 177000 177256 118: MOV 8-51 .  OMTWC SET WORD COUNT IN DEVICE 
204 000616’ 004767 1 JSR PC Raat 
20S 000622’ 016777 60000" 177246 nov TROF , aftTBA a 90 oe 
ene th 
Std DO0G34 ’ 170345 CLR antsT f CER IN poe 
208 000640’ 016577 000010 177224 MOV XCO(RS) , aMTCM 
209 ODE YE 004767 177416 JSR PC, MTDO! ‘fais quTER 
eid * 004767 177646 JSR PC’ PAK 
15 000656’ 062767 001000 177700 2s: ADD #512. DES ; UPDATE 
216 000664’ 105767 000000’ TSTB  —s«EOF SEN ‘EOF 29? 
217 000670’ 001007 BNE 3$ i BRANCH IF YES 
218 000672’ 105767 oo0000G TSTB ~—s- PIPFLG ta NODE? 
ob oD Teeree 000400 oo0002 en #256. , XWC(RS) ERs xy W 
T Boorbe Baas ae Cte’ DECREE ve 
222 - 000710’ 000207 33: RTS PC 


SR 


- 
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DMQUFB.Ple MAGTAPE ROUTINES SES 9057 


TR7OF = XXDP TR7OF E READ-ONLY | -MACYL1 27(732) OL-MAR-77 10:27 PAGE 1-8 


OMQUFB.P12 MAGTAPE ROUTINES SEG OOse 
1231 00000" .CSECT MTCOMM 
a) TR7SF MAGTAPE FILE HEADER FORMAT 
(L) ; FILE HEADER CONSISTS OF SEVEN (7) WORDS. 
(1) : WORD 1 THROUGH 3 NAME AND EXTENSION IN RADSO 
(1) ; WORD 4 PPN (401) 
3 : WORD S 
(1) : WORD TE (DOS FORMAT). IF CONTIGUOUS 
i) ; ° 2 Boe f IS SET TO 1. 
(1) WORD 7 FILE SIZE IN # OF 256 WORD BLOCKS. 
(1) oo00000° 000 000 EOFSEN: .BYTE 0,0 
1) SBTTL DISPATCH TO UNIQUE DEVICE ROUTINES. 
(1) 00000 CDIR= 0 
(1) oo00002 CRWD= 2 
(1) 000004 CSKPR= 4 
(1) 000006 CCLHD= 6 
(1) 000010 CWTHO= 10 
(1) 000012 CWEOF= 12 
(1) 000014 CRHD= 14 
(1) ‘ CREWND: : 
(1) BoooGe 1 ooo0c2 MOV #CRWD, -(SP) ;POINT TO REWIND ROUTINE. 
(1) ’ 3 COMMON 
(1) 000010’ 012746 oo0004 CSKIPR: MOV #CSKPR, -(SP) ;POINT TO SKIPR ROUTINE. 
1) 000014’ 900402 BR COMMON 
(1) 000016’ CROHOR: : 
(1) 000016’ 012746 000014 MOV 8CRHD, -(SP) :POINT TO RDHDR ROUTINE. 
(1) go0022" Dbe516 poose COMMON: ADD XDR (RS) (SP) ROOR OF OF ROUTINE TABLE. 
WD it : a3 0000006 ‘ADD Recent (oP ice CT Gest ae were: 
(1) 000036’ O1 8 MOV REES ORT be FOR RE ROGT IN : 


+ canal 


_ 


i 


LOLS OLN LO LO LOLOL PO LOL LLL LLL LL PP 
bo b-+ b +b >= b= bb P= bP ~ b— & = BF P= PP bP b= bh Pb = ho = 
ee et i et et et et et ee et et ee et ee ee eet ee ee ee ee ee ee ee ee ee 


| 


- XXDP TR79F MODULE READ-ONLY  MACY11 27(732) OL-MAR-77 10:27 PAGE 1-9 
P12 LOOKUP ROUTINE SEG 0059 
.SBTTL LOOKUP ROUTINE 
’ 177722 LOOKUP: TST XFLCNT(RS) FILE COUNT 0? 
erate aitaae BEQ 1$ ‘BR IF YES. GO REWIND. 
OO00%6' 77720 TST XFLMOD(RS) : IN FILE 
> 001002 BNE SEAR !BR IF YES. 
Bes: ones Has Sino, Re SN REA EAE ton 
eens eee aR 4g’ ABT Fponbe af oot: 
O00066' D05265 177722 INC XFLCNT(RS) sINCASTENT F FILE COUNT. 
Booa7e Obi770 ane: Q BLOCH iB Fpee YES. TLE IP IT. 
000100’ 016767 O000006 oD0012 MOV STXNAM. 2S 
000106’ 016767 O00000G 000006 MOV SBUF , 2$+2 
000114" 9900006 JSR RS, UPKNAM ;CONVERT NAME TO ASCII. 
000120" 0 2s: OPEN, OPEN ; ‘ 
nNH ’ 0000006 MPNAM + NAME . 
ceed aR BPakcn ?NO MATCH. 
000132° 016765 o00000G 177732 MOV BUF , XSVNAM(RS) :STORE NAME IN DDB. 
000140" O16 0000026 177734 MOV BUF $2, XSVNAM+2 (RS) 
000146’ O16 OO00004G 177736 MOV BUF +4! XSVEXT (RS) :STORE EXTENSION. 
000154° 016765 0000126 177740 MOV BUF +10. , XSVDAT(RS) THE DA 
000162’ 016765 O00014G 177746 MOV BUF +12.  XBKLGT (RS) ‘FILE LENGTH ALSO. 
000170° 062716 o090002 ADD 82, (SP) ‘SET UP SUCCESS EXIT. 
000174" 4S: RTS pc’ :DONE. RETU 


eo * 


TR XXDP TR7SF MODULE READ-ONLY 

| DMQUFB.Ple LOOKUP ROUTINE 

| (dd) 

| (1) Q00000 

| (1) o000002’ 

Bea 

| (1) 000000 0000006 

| af 000004 : 
| aR Bey ome 

| i) onongg% 
(1) oOO000e4 000000G 
(1) 03 
(1) O00 oponoo6 
(1) 1 
(1) 000000G 
(T) sieidois 
(1) 000103 
(1) —— 
+ 000002’ 
(1) yS22 
at Baaeoe ON7Ti4 
(1) 042456 052130 
46 052101 o2es0s 
(1) 
310 





rv 


MACY11 27(732) 


.CSECT 
TRBUF 
-BLKW 
. SBTT 


C 
DIRECT: J 
HE ADE 


1$: 


es: 


HEADER: 


-ASCIZ 


- EVEN 
-END 


O1-MAR-77 10:27 PAGE 1-10 
TRBF 


BiREctoRY ROUTINE 
MTDIRT 


;WHAT KINDA TAPE 

sFINO_A FIL 
“prs HBR YF NO HRE. 
XFLCNT (RS) ,R3 i AEE FILE COUNT. 
PI fh :00 IT. 

TY FILE NAME. 
rev RD, R3 ‘TYPE FILE DATE. 
reba TCRS) £00 FT us FILE? 
is ~~ ;BR_IF NOT. 

i CAR2 . ;YES, TYPE A C. 
1$’ ‘G0 FOR MORE. 
CREWND REWIND TAPE 


*ZENTRY®#’<11>’FILNAM.EXT*’<11>* DATE’ 





— —<—-- —o— mm yh 
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| DMQUFB.Pl2 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0061 
| ALC = 177772 10008 
| Vi = SeEEEE g 10008 
AR= #eeeEE 10008 
eeneee ¢ 10008 
BLOCK  QO00032R 10018 
BMOVE = #eeeEE CG 10008 
BUF = eeenee CG 10008 1126 1231 
TCNT oh 1143® 11928 1197% 
BeLa) = DOOOBE” Bat 
CDIR = Q00000 12318 
CHROUT= sHHHHHE 6G 10008 1231 
CLRBUF= sanaae ¢ 10008 
CLS = 177764 10008 
CMDREG 10018 
CMPNAM= ##aan8 ¢ ae 1231 
COMMON DOODSeR 002 eal 
CRDHDR QO0016R 002 12318 
CREMND OOOOO2PR G O0e 12318 
CRHD = 000014 12318 
CRLF = #eeee2 GC 10008 1231 
CRMD = O00002 12318 
CSKIPR O00010R 002 12318 
CSKPR = tle 12318 
CWEOF = l2 12318 
CWTHD = 000010 12318 
DATUPK= #42222 ¢ 10008 1231 
DELAY = #uaeee GC 10008 
DES OOOSE4R 1109 1140 11918 1196% 1l215*% 
og at 
DIRECT reread 004 1001 le3ls 
DIRPTR OOOO44R 10018 
DLT = 177762 10008 
DONE = 000200 10008 1073 1115 
aie {Bode = t35 
OOCO0OR 002 _ 1105* 1120% 1121 1195* 1216 12318 
1 10008 1073 1115 
10008 
10008 
10008 
004 il23ls 
10008 
10008 1001 1002 
10008 8 1231 
002 1001 le3ls 
ae 
1pbes seh 1111% 1205# 
1004e 103S5* 10728 1073 1113% 1115 1208% 
1022 029 1031 10628 
10738 1074 1209 
1036 10768 1077 1085S 1114 





Ce eee ee 


4 
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| DMQUFB.Ple CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0062 
| MTDRV OO00174R 1017 1025 10328 1106 1206 
| NERD 1083 Io88 ; 
MTST 1B 101 1430, 1076 1078 1082 llile# 1118 1128 1207% 
OE 000074R 1poee 1062# 1063% #1108% 1203% 
NX = Senne CG 10008 
OPEN = 000000 10008 1231 
PAK O00S24R 1125 11378 #81214 
PQRAM 10018 1012 
PAREND 10018 
PC =) 1000 1013% 10178 #10238 10204" 1025* 1036% #1037% #%(|057# #1064* 1080% 10618 1106# 
1110% 114% 1125* 127% 138% 114S* 11468 12e04* 1l206# 1209 l2ei4# l2e2e% 1231% 
PIPFLG= ##8ee2 G 10008 1218 
PS = 177776 10008 
PTI] = #eeEEE U 1394 
RBKCT OO004ER 10018 
ROHDR Q003S2R 1002 11058 : 
Os 1000 1001 1002 1011 1038 1066 1155 =1198 1210 123i 
READ 10018 
READBK= #22882 G 10008 
RELCNT= se#ee% G 10008 1056 1231 
RESR7 = eeeuaE CG 10008 
REWIND OOO106R 1002 10178 
RHDRi OOO43S4R iitee 1116 
eons 12R iti 11288 
RHDRY QOOSO4R llee2 lle6s 
RHDRS O003S6R 11068 1123 1129 
RHORE OO00474R 1119 11248 
RK11 = seeeHE U 1474 - le 
RPOY = #eeeEE l6le2 
RP11] = #eeeee LU 1732 
RSTOM = eenEEE CG 10008 1145 
RSO4Y = #eeeee 1679 
RXOl = #eeeee U 1804 
RO =7000000 10008 101e% 1139% 1141 1142s 
Rl =n 10008 1140% 1141# 
Re =) 10008 1231 
4 =%000003 ate eS 1021 1026 1027% #10308 1032* #1033 1034* 1035 1072 1231% 
RS =700000S 10008 102e8* 1033 1062 1113 1196 1208 l220% 1231% 
R6& =7000008 10008 
10008 1137 
12318 
10108 
1231 
1002 10258 
10008 1lle4* 1231% 
10008 
10008 1231 
2010 
ie 
003 1055# 1056% 1065 lill 1139 1205 12318 
10SS* 1064 ll 
003 1055 le3ls 








= 000126R 004 12318 


I ie nneneremesantetieie treater Racor 
| 
| 
| 


TR7SF - XXDP TR7SF MODULE READ-ONLY MACY1L1 27(732) O1-MAR-77 10:27 PAGE 2-2 
| DMQUFB.P12 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0062 
| TR79F = 9399 
| TXNAM = ##eeee = ¢ 10008 
| UNIT 10018 
UNPACK= #ee888 6 10008 
| UPACKI= #HHEEE 10008 
apg eeanae ¢ iipie 1231 
WRITE. DOOOTOR 10018 
WRTIDB OOO16ER 1023 10308 1080 
XBA = 000004 10008 1196 
XBC = OOO01E 10008 
XBKLGT= 177746 10008 1231% 
XBT = 177754 10008 
XCM = Ao0eD 10008 
xCO 8=©= 000010 10008 1208 
XDN = 177776 10008 
XDR = 000020 10008 1231 
XDT = QO0006 10008 
XFLCNT= 177722 10008 1231*% 
XFLMOD= 177720 10008 1231 
XLSTBK= 177750 10008 
XNB = 000022 10008 
XRD = 000012 10008 1033 1113 
XSV = 177774 10008 
XSVBLK= 177730 10008 
XSVCNT= 177726 10008 
XSVDAT= 177740 10008 1231 
XSVEXT= 177736 10008 i231 
= 177724 10008 
XSVNAM= 177732 10008 1231 
XSVUPT= 177752 10008 
XSVXX = 177742 10008 
XWC OU 10008 1028% 1062 1220% 
XWCTR = 177716 10008 
XWT = 000014 10008 
XXNAM = 000024 ’ 10008 
XXXXX = sHeeee LU 3 
X1STBK= 177744 10008 
ZER = 177760 10008 
SBUF = ##eEHE CG 10008 1109 1231 
SBUFC = eeeeEE 10008 
STPNMI= xeunex CG 10008 1231 
STXNAM= #xe22% 10008 1231 


IR79F = XXDP TR79F MODULE READ-ONLY ie 27(732) Ol-MAR-77 10:27 PAGE 3 


DMQUFB.P1lé2 CROSS REFERENCE TABLE -- MACRO NAMES SEG D064 
DKCOMM 5 
DKPARM 8 
MNTCOMM 8208 1231 
MTPARM ees) 1002 
PACK Soa 

PACK1 See 

PARAM 1708 1001 
RESREG 4S@ 1145 
RESRS 48x 

RESR7 Sis 
ROUTIN 328 


a mn ae mn ae were rere —- + oe oe 


——— —— 2 - +o a tr a 5 ee - a a 


othe 


- XXDP TR79F MODULE READ-ONLY  MACY11 27(732) OI-MAR-77 10:27 PAGE 4 
2 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS | SEG 0065S 
1231 

138 iiss 1543 1083 «1116S ssadd9=—Ssiad22S—s«éi1: 2B 

BGT 1221 

Bis =—SsipeySs«doBP 

BIT 1018 1073 1076 «©1078 441082 «61115 «= )=—Ss1:28 

BMI 1075 ~=—s«1117 

BNE 1019 1129 «#61144 1217 «©1219°~—s«123 

BPL 1231 

BR i022 «1029)«=Sfs«1031)S's«s108S)~=Sssd23)s1130—Ss:1231 

CLR 1032 «=s«107s«iédLzdLLS—C—i‘<é‘«éiD? 

CLR 1105 = 1195 

CMP 1121 

INC 1142 1143 ~=:1231 

mie 

JSR 1017 1ge3 1926 103 1064 #1080 1106 1110 111% #1125 1137 1138 2114S 1204 1206 

MOV 1012 iGee 1030 1035 1055S 1062 #1065 ###1072 «41107 ®©41108 1109 i141 1113 1139 ©1140 
119 1197 1203 1205 1208 #1231 

MOVB 1033 «1141 ~=—Ss:1231 

NEG 1063 

RTS 1013 1024 1037 ©1057 1081 1127 # 1146 1222 ~ 81231 
1 

SWAB 1034 

TST 1126 =-:1231 

TSTB 1216 1218 

.ASCIZ 1231 

"BLKW = Leal 

"BYTE eal 

"CSECT 1231 

“ENbc - | 1000 1001 0 1052 «(«1070—S's«:11179 2 1231 1232 1259 41323 «61393 #861473 

: 1484 1508 1539 «#41847 «1611 ieee 1678 41690 1731 #1742 «1803 1854 1890 1957 2009 
2055 2106 2137 42157 2213 2 2289 2307 

om 

-TEDF all 333 1001 1002 1233 #1394 #*#$i1474 1829 1612 1679 1732 «©1804 2010 

-IFNOF 1000 1038 1 SS 1198 1210 1231 1255 #1304 #=#=#1480 1535 1544 1618 168 # 1738 
1852 1881 1950 24 9 2102 2131 2153 2007 2218 2286 2305 

IFT 1001 1002 

TIE 1000 1011 1231 

-RACRO 32 42 4S 4B Sl 4 seg 62 66 70 170 209 225 250 820 

‘PAGE 1000 1001 1 1015 1223 = 123 

-SBTTL 1000 1001 1009 1016 + # 1231 

‘TITLE 1000 

Ags. 000000 000 

micom HR BE 

TREF Spohas 003 

MTDIRT 000126 004 


i 
— 


B06 


O1l-MAR-77 10:27 PAGE 4-1 


MACY11 27(732) 


10:41 


ERENCE TABLE -- PERMANENT SYMBOLS 


noe READ-ONLY 
S RE 

/S=28.6 
(25 PAGES) 


CONDS 


CROS 
0 
1-MAR-77 


-—— a ee a eee ee 


13K 


2ee2.3 
nario: iB 


XXDP TR7SF 
CORE USED: 


Ne: 
voz2 
®ONQUFB.BIN/T: 20000, TROP. MAP=TRDPM, TR79FR/E 


#TR7SFR, TR7SFR.LST/CRFE =DMQUFB.P12/EQ: TR79F “EQ: RDONLY 
RUN-TIME 


ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED: 0 


RUN-TI 
LNKX11 
LOAD MAP 


| DMQUFB.Ple 


"TRIOF - 


i 
ees cee SENN ee are 


BUT HFIP TNONNTS SNAG OTUs TS 
OOOO OOOO0OOOO000OO0O0O000000 


Ts 
4 Bie 


“Re ywwew 


TRANSFER ADDRESS: 000001 
LOW LIMIT: 005750 
HIGH LIMIT: Oe0000 





SEG 0067 


CO6 


He 
ee! 
Ssacesssses rata) 
Se Bepeakae HE E 
pear é gash 

rus 


0 SECONDS 


RUN-TIME: 


